home *** CD-ROM | disk | FTP | other *** search
/ Shareware Grab Bag / Shareware Grab Bag.iso / 090 / scrbas.arc / COMDEF.BAS next >
Encoding:
BASIC Source File  |  1987-01-02  |  1019 b   |  34 lines
  1. REM   *** COMDEF.BAS ***
  2.       LOCKS$(0)=STRING$(7,219): LOCKS$(1)=STRING$(4,219)+"NUM"
  3.       LOCKS$(2)="CAP"+STRING$(4,219):  LOCKS$(3)="CAP"+CHR$(219)+"NUM"
  4.       NTR$=CHR$(13):  BKSP$=CHR$(8):  UP$=CHR$(24): DN$=CHR$(25)
  5.       ESC$=CHR$(27)
  6.       RT$=CHR$(26):  LF$=CHR$(27): PG.UP=73: PG.DN=81 : ESC=27 : CR=13
  7.       LF.CURSOR=75:  RT.CURSOR=77:  END.KEY=79:  INS.KEY=82:  DEL.KEY=83:  HOME=71
  8.       DN.CURSOR=80:  UP.CURSOR=72:  CTRL.END=117: CTRL.HOME=119 : CTRL.RT=116: CTRL.LF=115
  9.       F1=59: F2=60: F3=61: F4=62: F5=63: F6=64: F7=65: F8=66: F9=67: F10=68
  10.       YES = NOT NO : NO = NOT YES
  11.  
  12.       CU1=4 : CU2=7
  13.  
  14.       DEF SEG=&H40
  15.       REM IF CRT = 1  THEN 40 X 25 COLOR
  16.       REM IF CRT = 32 THEN 80 X 25 COLOR
  17.       REM IF CRT = 48 THEN MONOCHROME
  18.       REM IF CRT = 64 THEN BOTH
  19.       CRT = PEEK(&H10)
  20.       IF CRT = 48 THEN DEF SEG=&HB000 ELSE DEF SEG=&HB800
  21.  
  22.       FG  =7
  23.       BG  =0
  24.  
  25.       RFG =0
  26.       RBG =7
  27.  
  28.       SFG =15
  29.       SBG =0
  30.  
  31.       HL  =15
  32.       BL  =23
  33.  
  34.